# --------------------------------------------
# HEWLETT·PACKARD 15C Simulator program
# Created with version 3.0.07
# --------------------------------------------
#T:Big Factorial program for the HP-15C
#D:This program computes the factorial of large numbers up to 1 x 10^8.\n\nIt computes the mantissa separately from the exponent.  Enter the number to factorialize in the X register.  Then press the A function key. \nThe value in the Y register is the Mantissa, and the value in the X register\nis the exponent.
#L-1:Start the program
#R0:The original number
#R1:Stores the exponent
# --------------------------------------------

   000 {             } 
   001 {    42 21 11 } f LBL A
   002 {       44  0 } STO 0
   003 {           1 } 1
   004 {           2 } 2
   005 {          20 } ✕
   006 {          15 } 1/x
   007 {       45  0 } RCL 0
   008 {       43 11 } g x²
   009 {           2 } 2
   010 {           8 } 8
   011 {           8 } 8
   012 {          20 } ✕
   013 {          15 } 1/x
   014 {          40 } ✛
   015 {       45  0 } RCL 0
   016 {           3 } 3
   017 {          14 } yˣ
   018 {           5 } 5
   019 {           1 } 1
   020 {           8 } 8
   021 {           4 } 4
   022 {           0 } 0
   023 {          20 } ✕
   024 {           1 } 1
   025 {           3 } 3
   026 {           9 } 9
   027 {          34 } x↔y
   028 {          10 } ÷
   029 {          30 } −
   030 {           1 } 1
   031 {          40 } ✛
   032 {       43 13 } g LOG
   033 {       45  0 } RCL 0
   034 {           1 } 1
   035 {          12 } ℯˣ
   036 {          10 } ÷
   037 {       43 13 } g LOG
   038 {       45  0 } RCL 0
   039 {          20 } ✕
   040 {          40 } ✛
   041 {       45  0 } RCL 0
   042 {       43 26 } g π
   043 {          20 } ✕
   044 {           2 } 2
   045 {          20 } ✕
   046 {          11 } √x
   047 {       43 13 } g LOG
   048 {          40 } ✛
   049 {       44  1 } STO 1
   050 {       42 44 } f FRAC
   051 {          13 } 10ˣ
   052 {       42 31 } f PSE
   053 {       45  1 } RCL 1
   054 {       43 44 } g INT
   055 {       43 32 } g RTN

# --------------------------------------------